home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 April: Mac OS SDK / Dev.CD Apr 96 SDK / Dev.CD Apr 96 SDK2.toast / Development Kits (Disc 2) / ScriptX / Draggable ScriptX Folders / utils / DTK / source / DIRIMP_SX / loopact.sx < prev    next >
Encoding:
Text File  |  1996-02-28  |  628 b   |  23 lines  |  [TEXT/ttxt]
  1. -- *******************************************************
  2. -- *                                                     *
  3. -- * LoopAction class                                     *
  4. -- *                                                     *
  5. -- *******************************************************
  6.  
  7. class LoopAction (Action)
  8.    instance variables
  9.         looping
  10. end
  11.  
  12. method init self {class LoopAction} #rest args  ->
  13. (
  14.     apply nextMethod self args
  15.     self.looping := false
  16. )
  17.  
  18. method trigger self {class LoopAction} theTarget thePlayer ->
  19. (
  20.     if (self.looping) do
  21.         thePlayer.scorePlayer.time := 0 -- Need to decide where to jump to!
  22. )
  23.